home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / qbnws31j.lzh / MEMCOPY.ASM < prev    next >
Assembly Source File  |  1991-11-07  |  770b  |  39 lines
  1. PAGE 56,132
  2. TITLE MemCopy.ASM - QBasic callable memory block copy bin file
  3. ;
  4. ; MemCopy.ASM - (C)1991 by Brent Ashley
  5. ; Copies blocks of memory quickly - to be used for screen saves.
  6. ;
  7. ; written with Microsoft QC/QuickAssembler v2.51
  8.  
  9. .MODEL medium, BASIC
  10. .CODE
  11.  
  12. MemCopy PROC USES si di ds es, FromSeg:PTR WORD, FromOfs:PTR WORD, \
  13.                                ToSeg:PTR WORD, ToOfs:PTR WORD, \
  14.                                Count:PTR WORD
  15.  
  16.     ; load ds:si with source, es:di with destination 
  17.     mov bx,FromOfs
  18.     mov si,[bx]
  19.     mov bx,ToSeg
  20.     mov es,[bx]
  21.     mov bx,ToOfs
  22.     mov di,[bx]
  23.     mov bx,Count
  24.     mov cx,[bx]
  25.  
  26.     ; ds last (used to access data)
  27.     mov bx,FromSeg
  28.     mov ds,[bx]
  29.  
  30.     ; do the copy 
  31.     cld
  32.     rep movsb
  33.  
  34.     ret
  35.  
  36. MemCopy  ENDP
  37.  
  38. END
  39.